Option Explicit
Sub P_Sample014()
    MsgBox CurDir
End Sub